home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getdis1r / frmsave.frm (.txt) < prev    next >
Visual Basic Form  |  1999-07-26  |  2KB  |  89 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSave 
  3.    Caption         =   "Save As"
  4.    ClientHeight    =   3348
  5.    ClientLeft      =   48
  6.    ClientTop       =   336
  7.    ClientWidth     =   5292
  8.    LinkTopic       =   "Form2"
  9.    LockControls    =   -1  'True
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3348
  13.    ScaleWidth      =   5292
  14.    StartUpPosition =   1  'CenterOwner
  15.    Begin VB.TextBox Text1 
  16.       Height          =   288
  17.       Left            =   240
  18.       TabIndex        =   5
  19.       Top             =   2400
  20.       Width           =   4812
  21.    End
  22.    Begin VB.Frame Frame1 
  23.       Caption         =   "Enter your file name below you wish to save it as."
  24.       Height          =   612
  25.       Left            =   120
  26.       TabIndex        =   6
  27.       Top             =   2160
  28.       Width           =   5052
  29.    End
  30.    Begin VB.FileListBox File1 
  31.       Height          =   1608
  32.       Left            =   2640
  33.       TabIndex        =   4
  34.       Top             =   480
  35.       Width           =   2532
  36.    End
  37.    Begin VB.DriveListBox Drive1 
  38.       Height          =   288
  39.       Left            =   120
  40.       TabIndex        =   3
  41.       Top             =   120
  42.       Width           =   5052
  43.    End
  44.    Begin VB.DirListBox Dir1 
  45.       Height          =   1584
  46.       Left            =   120
  47.       TabIndex        =   2
  48.       Top             =   480
  49.       Width           =   2412
  50.    End
  51.    Begin VB.CommandButton Command2 
  52.       Caption         =   "Cancel"
  53.       Height          =   375
  54.       Left            =   4200
  55.       TabIndex        =   1
  56.       Top             =   2880
  57.       Width           =   972
  58.    End
  59.    Begin VB.CommandButton Command1 
  60.       Caption         =   "Save"
  61.       Height          =   375
  62.       Left            =   3120
  63.       TabIndex        =   0
  64.       Top             =   2880
  65.       Width           =   972
  66.    End
  67. Attribute VB_Name = "frmSave"
  68. Attribute VB_GlobalNameSpace = False
  69. Attribute VB_Creatable = False
  70. Attribute VB_PredeclaredId = True
  71. Attribute VB_Exposed = False
  72. Private Sub Command1_Click()
  73. Unload Me
  74. End Sub
  75. Private Sub Command2_Click()
  76. Unload Me
  77. End Sub
  78. Private Sub Dir1_Change()
  79. File1.Path = Dir1.Path
  80. Text1 = File1.Name
  81. End Sub
  82. Private Sub Drive1_Change()
  83. Dir1.Path = Drive1.Drive
  84. Text1 = Dir1.Path
  85. End Sub
  86. Private Sub File1_Click()
  87. Text1 = File1.filename
  88. End Sub
  89.